home *** CD-ROM | disk | FTP | other *** search
/ CSi Master: Ableton Live 5 / CSi Master: Ableton Live 5.iso / pc / rsrc / locrsrc / mtprsrc-old.dir / Internal_53_S2.ls < prev    next >
Encoding:
Text File  |  2005-10-31  |  7.3 KB  |  194 lines
  1. on enterFrame
  2.   global topicLetter, gMapList, gMovieMap, gSourcePath, gPicName, gTestPath, gCDList, gCDname
  3.   topicLetter = "A"
  4.   gMapList = MapMenuSetup()
  5.   if the number of lines in gMapList > 1 then
  6.     put "Please select a TutorialGroup from the following list:" & RETURN & RETURN & gMapList into field "map list"
  7.     if isCDinDrive() then
  8.       gCDList = findMountedCDs()
  9.     else
  10.       gCDList = []
  11.     end if
  12.     if count(gCDList) = 0 then
  13.       go("Insert CD prompt")
  14.     else
  15.       go("map choice")
  16.     end if
  17.   else
  18.     sprite(7).visible = 0
  19.     case the machineType of
  20.       256:
  21.         mapFilename = the pathname & "..\MTdata\" & line 1 of gMapList
  22.       otherwise:
  23.         mapFilename = the pathname & ":MTdata:" & line 1 of gMapList
  24.     end case
  25.     mapFile = new(xtra("fileIO"))
  26.     openFile(mapFile, mapFilename, 1)
  27.     if status(mapFile) = 0 then
  28.       gMovieMap = readFile(mapFile)
  29.       closeFile(mapFile)
  30.     else
  31.       alert("Could not find any TutorialGroups. You may need to install this application again.")
  32.       quitThisProgram()
  33.     end if
  34.     mapFile = 0
  35.     the itemDelimiter = ";"
  36.     gTestPath = item 1 of line 1 of gMovieMap
  37.     gPicName = item 2 of line 1 of gMovieMap
  38.     the itemDelimiter = ";"
  39.     gSourcePath = item 1 of line 1 of gMovieMap
  40.     if the machineType = 256 then
  41.       repeat with n = 1 to the number of chars in gSourcePath
  42.         if char n of gSourcePath = ":" then
  43.           put "\" into char n of gSourcePath
  44.         end if
  45.       end repeat
  46.     end if
  47.     gCheckCDpath = gSourcePath
  48.     gCDname = item 2 of line 1 of gMovieMap
  49.     the itemDelimiter = ":"
  50.     delete item the number of items in gSourcePath of gSourcePath
  51.     the itemDelimiter = ","
  52.     gSourcePath = gSourcePath & ":"
  53.     setupTopics(gMovieMap)
  54.     setupMovieNames(gMovieMap)
  55.     the itemDelimiter = ";"
  56.     gTestPath = item 1 of line 1 of gMovieMap
  57.     gPicName = item 2 of line 1 of gMovieMap
  58.     if the machineType <> 256 then
  59.       if gPicName = "CSI_V3.PCT" then
  60.         gSourcePath = "CSi vol.3:content:movie:"
  61.       else
  62.         if gPicName = "CSI_V4.PCT" then
  63.           gSourcePath = "CSi vol.4:content:ie:"
  64.         else
  65.           if gPicName = "CSI_V5.PCT" then
  66.             gSourcePath = "CSi vol.5:content:ie:"
  67.           else
  68.             if gPicName = "CSI_V6.PCT" then
  69.               gSourcePath = "CSi vol.6:content:ie:"
  70.             else
  71.               if gPicName = "CSI_V7.PCT" then
  72.                 gSourcePath = "CSi vol.7:content:ie:"
  73.               else
  74.                 if gPicName = "MT_PI.PCT" then
  75.                   gSourcePath = "CSi MT Plug-ins:content:ie:"
  76.                 else
  77.                   if gPicName = "CSi_ST1.PCT" then
  78.                     gSourcePath = "CSi ST1:content:ie:"
  79.                   else
  80.                     if gPicName = "CSI_V8.PCT" then
  81.                       gSourcePath = "CSi vol.8:content:ie:"
  82.                     else
  83.                       if gPicName = "CSI_M1.PCT" then
  84.                         gSourcePath = "DP4 CSi MASTER:content:ie:"
  85.                       else
  86.                         if gPicName = "CSI_V10.PCT" then
  87.                           gSourcePath = "CSi vol.10:content:ie:"
  88.                         else
  89.                           if gPicName = "CSI_M2.PCT" then
  90.                             gSourcePath = "Waves CSi MASTER:content:ie:"
  91.                           else
  92.                             if gPicName = "CSI_S2.PCT" then
  93.                               gSourcePath = "SONAR 3 CSi STARTER:content:ie:"
  94.                             else
  95.                               if gPicName = "CSI_M3.PCT" then
  96.                                 gSourcePath = "Reason CSi MASTER:content:ie:"
  97.                               else
  98.                                 if gPicName = "CSI_S3.PCT" then
  99.                                   gSourcePath = "CubaseSX2 CSi STARTER:content:ie:"
  100.                                 else
  101.                                   if gPicName = "CSI_S04.PCT" then
  102.                                     gSourcePath = "Logic CSi STARTER:content:ie:"
  103.                                   else
  104.                                     if gPicName = "CSI_S05.PCT" then
  105.                                       gSourcePath = "DP4 CSi STARTER:content:ie:"
  106.                                     else
  107.                                       if gPicName = "CSI_S06.PCT" then
  108.                                         gSourcePath = "Reason CSi STARTER:content:ie:"
  109.                                       else
  110.                                         if gPicName = "CSI_M11.PCT" then
  111.                                           gSourcePath = "Live 5 CSi MASTER:content:ie:"
  112.                                         else
  113.                                           if gPicName = "CSI_M04.PCT" then
  114.                                             gSourcePath = "Nuendo CSi MASTER:content:ie:"
  115.                                           else
  116.                                             gSourcePath = gTestPath
  117.                                             the itemDelimiter = ":"
  118.                                             delete item the number of items in gSourcePath of gSourcePath
  119.                                             gSourcePath = gSourcePath & ":"
  120.                                           end if
  121.                                         end if
  122.                                       end if
  123.                                     end if
  124.                                   end if
  125.                                 end if
  126.                               end if
  127.                             end if
  128.                           end if
  129.                         end if
  130.                       end if
  131.                     end if
  132.                   end if
  133.                 end if
  134.               end if
  135.             end if
  136.           end if
  137.         end if
  138.       end if
  139.     else
  140.       if gPicName = "CSI_V3.PCT" then
  141.         gSourcePath = "CSi vol.3\content\movie\"
  142.       else
  143.         if gPicName = "CSI_V4.PCT" then
  144.           gSourcePath = "CSi vol.4\content\ie\"
  145.         else
  146.           gSourcePath = gTestPath
  147.           the itemDelimiter = ":"
  148.           delete item the number of items in gSourcePath of gSourcePath
  149.           gSourcePath = gSourcePath & ":"
  150.         end if
  151.       end if
  152.     end if
  153.     setupTopics(gMovieMap)
  154.     setupMovieNames(gMovieMap)
  155.     setupBackgroundScreen(gPicName)
  156.     if isCDinDrive() then
  157.       vPathTestResult = checkForCD(gTestPath)
  158.     else
  159.       vPathTestResult = EMPTY
  160.     end if
  161.     if vPathTestResult = 1 then
  162.       itemDelSaver = the itemDelimiter
  163.       the itemDelimiter = ":"
  164.       vCDName = item 1 of gMovieMap
  165.       serialnumbercheck(vCDName)
  166.       the itemDelimiter = itemDelSaver
  167.     else
  168.       if isCDinDrive() then
  169.         gCDList = findMountedCDs()
  170.       else
  171.         gCDList = [:]
  172.       end if
  173.       vDelimiterSave = the itemDelimiter
  174.       the itemDelimiter = ":"
  175.       if gCDList <> [:] then
  176.         vCD = item 1 of gCDList[1]
  177.       end if
  178.       if the machineType <> 256 then
  179.         vCD = vCD & ":"
  180.       else
  181.         vCD = vCD & ":\"
  182.       end if
  183.       the itemDelimiter = vDelimiterSave
  184.       if gCDList <> [:] then
  185.         OK = baEjectDisk(vCD)
  186.       end if
  187.       gCDname = vPathTestResult
  188.       put "The correct CD-ROM was not found. Please insert the " & QUOTE & gCDname & QUOTE & " CD-ROM and stand by." into field "cd prompt text"
  189.       put "Please select a TutorialGroup from the following list:" & RETURN & RETURN & gMapList into field "map list"
  190.       go("CD Prompt")
  191.     end if
  192.   end if
  193. end
  194.